home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ccdl150l.zip / COMPLIB / 68K / 68DIVS.SRC next >
Text File  |  1996-12-14  |  255b  |  24 lines
  1.     section code
  2.     XDEF __divs
  3.     xref    lludiv
  4. __divs:
  5.     move.l    (8,A7),D1
  6.     move.l    D1,D2
  7.     bpl.b    n1
  8.     neg.l    d1
  9. n1:
  10.     move.l    (4,A7),D0
  11.     eor.l    D0,D2
  12.     or.l    d0,d0
  13.     bpl.b    n2
  14.     neg.l    d0
  15. n2:
  16.     bsr    lludiv
  17.     btst.l    #31,D2
  18.     beq.b    ret
  19.     neg.l    d0
  20. ret:
  21.     rts
  22.  
  23.  
  24.